home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Source Sea20778672001.psc / Node Info.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  2001-04-22  |  6.8 KB  |  193 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmNodeInfo 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Source Search Node Information Dialog"
  6.    ClientHeight    =   5256
  7.    ClientLeft      =   36
  8.    ClientTop       =   336
  9.    ClientWidth     =   8700
  10.    Icon            =   "Node Info.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   5256
  15.    ScaleWidth      =   8700
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.Frame Frame1 
  19.       Height          =   5172
  20.       Left            =   100
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   8532
  24.       Begin VB.ListBox lstParents 
  25.          Height          =   1008
  26.          ItemData        =   "Node Info.frx":0E42
  27.          Left            =   4320
  28.          List            =   "Node Info.frx":0E49
  29.          TabIndex        =   7
  30.          Top             =   3960
  31.          Width           =   4092
  32.       End
  33.       Begin VB.ListBox lstChildren 
  34.          Height          =   1008
  35.          ItemData        =   "Node Info.frx":0E57
  36.          Left            =   120
  37.          List            =   "Node Info.frx":0E5E
  38.          TabIndex        =   6
  39.          Top             =   3960
  40.          Width           =   4092
  41.       End
  42.       Begin VB.CommandButton Command1 
  43.          Caption         =   "Open This Folder"
  44.          Height          =   372
  45.          Left            =   6720
  46.          TabIndex        =   5
  47.          Top             =   1440
  48.          Width           =   1692
  49.       End
  50.       Begin VB.TextBox txtPath 
  51.          Height          =   288
  52.          Left            =   4320
  53.          Locked          =   -1  'True
  54.          TabIndex        =   4
  55.          Top             =   1080
  56.          Width           =   4092
  57.       End
  58.       Begin VB.TextBox txtDisplayName 
  59.          Height          =   288
  60.          Left            =   4320
  61.          Locked          =   -1  'True
  62.          TabIndex        =   3
  63.          Top             =   480
  64.          Width           =   4092
  65.       End
  66.       Begin VB.CommandButton Command2 
  67.          Caption         =   "Open This File"
  68.          Height          =   372
  69.          Left            =   4320
  70.          TabIndex        =   2
  71.          Top             =   1440
  72.          Width           =   1692
  73.       End
  74.       Begin MSComctlLib.TreeView TV 
  75.          Height          =   3372
  76.          Left            =   120
  77.          TabIndex        =   1
  78.          Top             =   240
  79.          Width           =   4092
  80.          _ExtentX        =   7218
  81.          _ExtentY        =   5948
  82.          _Version        =   393217
  83.          Indentation     =   176
  84.          LabelEdit       =   1
  85.          LineStyle       =   1
  86.          Sorted          =   -1  'True
  87.          Style           =   7
  88.          Appearance      =   1
  89.          OLEDropMode     =   1
  90.       End
  91.       Begin MSComctlLib.ListView LV 
  92.          Height          =   1452
  93.          Left            =   4320
  94.          TabIndex        =   8
  95.          Top             =   2160
  96.          Width           =   4092
  97.          _ExtentX        =   7218
  98.          _ExtentY        =   2561
  99.          View            =   3
  100.          LabelEdit       =   1
  101.          LabelWrap       =   -1  'True
  102.          HideSelection   =   -1  'True
  103.          FullRowSelect   =   -1  'True
  104.          _Version        =   393217
  105.          ForeColor       =   -2147483640
  106.          BackColor       =   -2147483643
  107.          BorderStyle     =   1
  108.          Appearance      =   1
  109.          NumItems        =   2
  110.          BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  111.             Text            =   "Violation Level"
  112.             Object.Width           =   3528
  113.          EndProperty
  114.          BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  115.             SubItemIndex    =   1
  116.             Text            =   "Number of Violations"
  117.             Object.Width           =   3528
  118.          EndProperty
  119.       End
  120.       Begin VB.Label Label5 
  121.          AutoSize        =   -1  'True
  122.          BackStyle       =   0  'Transparent
  123.          Caption         =   "Violations"
  124.          Height          =   192
  125.          Left            =   4320
  126.          TabIndex        =   13
  127.          Top             =   1920
  128.          Width           =   708
  129.       End
  130.       Begin VB.Label Label4 
  131.          AutoSize        =   -1  'True
  132.          BackStyle       =   0  'Transparent
  133.          Caption         =   "Node's Immediate Parents"
  134.          Height          =   192
  135.          Left            =   4320
  136.          TabIndex        =   12
  137.          Top             =   3720
  138.          Width           =   1908
  139.       End
  140.       Begin VB.Label Label3 
  141.          AutoSize        =   -1  'True
  142.          BackStyle       =   0  'Transparent
  143.          Caption         =   "Node's Immediate Children"
  144.          Height          =   192
  145.          Left            =   120
  146.          TabIndex        =   11
  147.          Top             =   3720
  148.          Width           =   1944
  149.       End
  150.       Begin VB.Label Label2 
  151.          AutoSize        =   -1  'True
  152.          BackStyle       =   0  'Transparent
  153.          Caption         =   "Node's File Path"
  154.          Height          =   192
  155.          Left            =   4320
  156.          TabIndex        =   10
  157.          Top             =   840
  158.          Width           =   1188
  159.       End
  160.       Begin VB.Label Label1 
  161.          AutoSize        =   -1  'True
  162.          BackStyle       =   0  'Transparent
  163.          Caption         =   "Node's Display Name"
  164.          Height          =   192
  165.          Left            =   4320
  166.          TabIndex        =   9
  167.          Top             =   240
  168.          Width           =   1596
  169.       End
  170.    End
  171. Attribute VB_Name = "frmNodeInfo"
  172. Attribute VB_GlobalNameSpace = False
  173. Attribute VB_Creatable = False
  174. Attribute VB_PredeclaredId = True
  175. Attribute VB_Exposed = False
  176. Option Explicit
  177. Private Sub Command1_Click()
  178.   'Opens the folder of the root node
  179.   ShellExecute 0&, vbNullString, Mid$(FSO.GetFile(txtPath.Text).Path, 1, Len(FSO.GetFile(txtPath).Path) - Len(FSO.GetFile(txtPath).Name)), vbNullString, vbNullString, vbNormalFocus
  180. End Sub
  181. Private Sub Command2_Click()
  182.   'Opens the root node in VB (or the default program)
  183.   ShellExecute 0&, vbNullString, txtPath.Text, vbNullString, vbNullString, vbNormalFocus
  184. End Sub
  185. Private Sub Form_Load()
  186.   'Sets default options
  187.   LV.ListItems.Add(, "Low", "Low").ListSubItems.Add , , "0"
  188.   LV.ListItems.Add(, "Normal", "Normal").ListSubItems.Add , , "0"
  189.   LV.ListItems.Add(, "High", "High").ListSubItems.Add , , "0"
  190.   LV.ListItems.Add(, "Total", "Total").ListSubItems.Add , , "0"
  191.   TV.ImageList = frmMain.PTIList
  192. End Sub
  193.